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-- Directory. Mesa Edited by Sandman on May 12, 1978 2:06 PM 

DIRECTORY 

AUoDefs: FROM "altodefs" USING [BytesPerWord] , 
AUoFileDefs: FROM "altof il edef s" USING [ 

DEfile, DEfree, DirFP, DV, FilenameChars, FP], 
BFSDefs: FROM "bfsdefs" USING [CreateFile, MakeCFP, MakeFP], 
DirectoryDefs: FROM "directorydef s" . 

SegmentDefs: FROM "segmentdef s" USING [FileHandle, InsertFile, LockFile], 
StreamDefs: FROM "streamdefs" USING [ 

AccessOptions, Append, CreateWordStream, Getlndex, Normal izelndex, Read, 

ReadBlock, Setlndex, StreamHaiidle, Streamlndex, Write, WriteBlock], 
StringDefs: FROM "stringdefs" USING [ 

AppendChar, AppendString, bcplSTRING, BcplToMesaString , EquivalentString, 

MesaToBcpl String, WordsForBcplString] ; 

DEFINITIONS FROM SegmentDefs, StringDefs, AUoFileDefs. StreamDefs; 

i 

Directory: PROGRAM 

IMPORTS BFSDefs, SegmentDefs, StreamDefs, StringDefs EXPORTS DirectoryDefs = BEGIN 

FPptr: TYPE - POINTER TO FP 
DVptr: TYPE - POINTER TO DV 
HDptr: TYPE « POINTER TO HD 

BadFilename: PUBLIC SIGNAL [name:STRING3 « CODE; 
BadDirectory: PUBLIC SIGNAL [name:STRING] « CODE; 

EnumerateDirectory: PUBLIC PROCEDURE [ 

proc:PROCEDURE [POINTER TO FP, STRING] RETURNS [BOOLEAN]] « 
BEGIN 

PassItOn: PROCEDURE [i :StreamIndex, dv:DVptr, s:STRING] RETURNS [BOOLEAN] - 
BEGIN fp: FP; 
IF dv.type » DEfile THEN 
BEGIN 

BFSDefs. MakeFP[@fp,0dv.fp]; 
RETURN[proc[0fp,s]] 
END; 
RETURN[FALSE] 
END; 
dir: StreamHandle ^ CreateWordStream[SysDir,Read]; 
[] ^ EnumerateEntries[dir, PassItOn]; 
dir.destroy[dir]; 
RETURN 
END; 

DirectoryLookup: PUBLIC PROCEDURE [fp:FPptr, name:STRING, create:BOOLEAN] 
RETURNS [old:BOOLEAN] = 
BEGIN 
sdfp: FP; 

dir: StreamHandle; access: AccessOptions; hd: HD; 
fn: STRING *- [FilenameChars]; ExpandFilename[name,fn] ; 
access <- IF -create THEN Read ELSE Read+Write+Append; 
dir ^ CreateWordStream[SysDir, access]; 
old ^ FindName[dir .fp ,fn.@hd]. found; 
IF -old AND create THEN 

BEGIN 

-- should be 0dir.fi1e.fp 

sdfp *r DirFP; 

BFSDefs. CreateFi1e[fn,fp,0sdfp]; 

MakeEntry[dir,fp,fn,@hd]; 

END; 
dir.destroy[dir]; 
RETURN 
END; 

DirectoryLookupFP: PUBLIC PROCEDURE [fp:FPptr, name:STRING] 
RETURNS [o1d:B00LEAN] « 
BEGIN 

dir: StreamHandle *- CreateWordStream[SysDir ,Read]; 
old <r FindFP[dir ,fp, name]. found; 
dir .destroy[dir]; 
RETURN 
END; 

DirectoryPurge: PUBLIC PROCEDURE [fp:FPptr, nameiSTRING] 
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RETURNS [found:BOOLEAN] « 

BEGIN 

dir: StreamHandle; index: Streamlndex; 

fn: STRING ^ [FilenameChars] ; ExpandFi1ename[name,fn] ; 

dir ^ CreateWordStream[SysDir,Read+Write]; 

[found, index] ♦■ FindName[d ir ,fp,f n.NIL]; 

IF found THEN De1eteEntry[dir, index] ; 

dir.destroy[dir]; 

RETURN 

END; 

DirectoryPurgeFP: PUBLIC PROCEDURE [fprFPptr] 
RETURNS [found: BOOLEAN] - 
BEGIN 

dir: StreamHandle; index: Streamlndex; 
dir ^ CreateWordStream[SysDir,Read+Write]; 
[found, index] <- FindFP[dir, fp.NIL]; 
IF found THEN DeleteEntry[dir , index] ; 
dir. destroy[dir]; 
RETURN 
END; 

-- Support Routines 

DEugly: INTEGER » DEfi1e+l; -- for malformed DEfile entries. 

BcplWords: INTEGER « 20; -- WordsForBcp1String[Fi1enameChars]; 

HD: TYPE = RECORD [size, needed: INTEGER, index: Streamlndex]; 

EnumerateEntries: PUBLIC PROCEDURE [dir :StreamHand1e, 

proc:PROCEDURE [Streamlndex, DVptr, STRING] RETURNS [BOOLEAN]] RETURNS [Streamlndex] 
BEGIN 

dv: DV; length: CARDINAL; 
name: STRING <- [FilenameChars]; 
index: Streamlndex <- Getlndex[dir]; 
dn: ARRAY [0. .BcplWords) OF UNSPECIFIED; 
bcpl: POINTER TO bcplSTRING ♦- 0dn[O]; 
UNTIL dir.endof[dir] DO 
[] *- ReadBlock[dir,0dv,l]; 

IF (length <- dv.length)«0 THEN ERROR BadDirectory[name]; 
IF dv.type = DEfile THEN 

IF length IN {SIZE[DV]. .SIZE[DV]+LENGTH[dn]] THEN 
BEGIN 

[] ^ ReadBlock[dir,@dv+l,SIZE[DV]-l]; 
[] <r- ReadBlock[dir.bcpl,length-SIZE[DV]]; 
BcplToMesaString[bcpl ,name]; 
END 
ELSE dv.type <- DEugly; 
IF proc[index.@dv,name] THEN EXIT; 

index. byte ♦- index. byte+length*Al toDefs .BytesPerWord; 
Setlndex[dir, index ^ Normal izelndex[index]]; 
ENDLOOP; 
RETURN[index] 
END; 

FindName: PROCEDURE [dir :StreamHandle, fp:FPptr, name:STRING, hd:HDptr] 
RETURNS [found:BOOLEAN, index:StreamIndex] « 
BEGIN 

sinkHD: HD; 

MatchName: PROCEDURE [i :StreamIndex, dv:DVptr, s :STRING]RETURNS [BOOLEAN] - 
BEGIN 

IF hd.si2e = THEN hd. index ♦- i; 
SELECT dv.type FROM 
DEfree «> 

IF hd.size < hd. needed 

THEN hd.size ♦- hd. size+dv . length; 
DEfile «> 

IF found <- EquivalentString[name,s] 
THEN BFSDefs.MakeFP[fp,@dv.fp]; 
ENDCASE; 

-- SIGNAL BadDirectory[s]; 
IF dv.type ^ DEfree 
AND hd.size < hd. needed 
THEN hd.size «- 0; 
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RETURN[found] 

END; 
IF hd » NIL THEN hd ^ §sinkHD; 

hdt ^ HD[0,SIZE[DV]+WordsForBcplString[name. length],]; 
found *- FALSE; index <- EnumerateEntries[dir .MatchName] ; 
IF hd.size»0 THEN hd. index *■ index; 
RETURN 
END; 

FindFP: PROCEDURE [dir iStreamHandle, fp:FPptr. nametSTRING] 
RETURNS [foundtBOOLEAN, index:StreamIndex] - 
BEGIN 

MatchFP: PROCEDURE [i :StreamInclex, dv:DVptr, s:STRING] RETURNS [BOOLEAN] 
BEGIN f: FP; 
SELECT dv.type FROM 
DEfree «> NULL; 
DEfile "> 

BEGIN BFSDefs.MakeFPC@f,edv.fp]; 
IF (found <- f=fpt) 
AND name # NIL THEN 

BEGIN name. length ♦• 0; 
AppendString[name,s]; 
END; 
END; 
ENDCASE; -- SIGNAL BadDirectory[s] ; 
RETURN[found] 
END; 
found <- FALSE; 

index ♦- EnumerateEntries[dir , MatchFP]; 
RETURN 
END; 

MakeEntry: PROCEDURE [dir :StreamHandle, fprFPptr, namerSTRING, hd:HDptr] ■ 
BEGIN leftover: CARDINAL; 
dv: DV ^ DV[DEfile.hd. needed.]; 
dn: ARRAY [0. .BcplWords) OF UNSPECIFIED; 
bcpl: POINTER TO bcplSTRING <- 0dn[O]; 
IF name. length > FilenameChars 

THEN ERROR BadFilename[name] ; 
BFSDefs.MakeCFP[0dv.fp,fp]; 
MesaToBcp1String[ name, bcpl] ; 
Setlndex[dir,hd. index]; 
[] *- WriteBlock[dir,0dv,SIZE[DV]]; 
[] ^ WriteBlock[dir,bcp1.hd.needed-SIZE[DV]]; 
IF (leftover <- hd. size-hd,needed)>0 THEN 

BEGIN 

dv ^ DV[DEfree, leftover,]; 

[] <- WriteBlock[dir,@dv,l]; 

END; 
RETURN 
END; 

DeleteEntry: PROCEDURE [dir :StreamHandle, index:StreamIndex] « 
BEGIN dv:DV; 
Se tin dex[dir. index]; 
[] ^ ReadBlock[dir,@dv,l]; 
dv.type ♦- DEfree; 
Setlndex[dir, index]; 
[] ♦- WriteBlock[dir,0dv,l]; 
RETURN 
END; 

-- Filename Parsing (such as it is) 

ExpandFilename: PUBLIC PROCEDURE [name,f ilename:STRING] - 
BEGIN filename, length ♦* 0; 
Ap pen dString[filename, name] ; 
IF f ilename[f ilename. length-1] '. 

THEN AppendChar[Filename, ' , ]; 
RETURN 
END; 

init: PROCEDURE - 
BEGIN 
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fp: FP <r AUoFileDefs.DirFP; 

LockFi1e[SysDir *- InsertFi1e[0f p ,Read+Write+Append]]; 

END; 

-- Main Body 

SysDir: FileHandle ^ NIL; 

init[]; 

END. 

-- stuff yet to be done: 

SetCurrentDir, CloseCurrentDir, SetWorkingDir , ParseFilename. 

VersionsKept, StripVersion , AppendVersion, SearchForVersion. 



